Plot[Exp[-Exp[Tan[x]]], {x,Pi/2,7 Pi/2}]